O7770(SURFACE 0-90 DEG FULL FILLET RAD. ID PART)
(ABSOLUTE SURFACING MACRO)
(START OF TANGENT/ TOP OF RADIUS)
(END OF TANGENT/ END OF RADIUS)
(WORKS)

(FORMAT G65/G66 CDTMSKRZF)
(C = #3 - CUSP HEIGHT/ DEG. OF ROTATION)
(D = #7 - TOOL DIAMETER)
(T = #20 - TOOL RADIUS/ BALL OR BULL)
(M = #13 - DIA. OF HOLE/ MAT. CLEARANCE POINT)
(S = #19 - PART INTERNAL DIAMETER)
(K = #6 - PART FILLET RADIUS)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(F = #9 - FEEDRATE)
(***********************************)

IF[#20GE#6]GOTO1000
IF[#19EQ[#6*2]]GOTO1
IF[#7GT#19-[#6*2]]GOTO1001
N1#100=0
#101=#6-#20
#102=#3
IF[#102GT15.]THEN#102=15.
#102=ROUND[90./#102]
#102=90./#102
#103=#5001
#104=#5002
#105=#104
#115=#105
#155=0
IF[#19EQ[#6*2]]GOTO10
#115=#105+[[#13/2]-[#7/2]]
N10#105=#105+[[#19/2]-#6]
#155=#155+[[#19/2]-#6]
IF[#7EQ[#20*2]]GOTO100
#105=#105-[[#7/2]-#20]
#155=#155-[[#7/2]-#20]
N100G0G90X#103Y#115
Z[#26+.1]
G1Z[#26-#20]F#9
#106=#5003
WHILE[#100LE90.]DO1
IF[#100GT90.]GOTO111
#107=#105+[COS[#100]*[#101]]
#157=#155+[COS[#100]*[#101]]
#108=#106-[SIN[#100]*[#101]] 
#100=#100+#102
G1Z#108F#9
G41Y#107
G03J-#157
G1G40Y#115F[#9/2]
END1
N111G0G90Z#18
X#103Y#104
M99
N1000#3000= 1( TOOL RADIUS TOO BIG )
N1001#3000= 1( END MILL TOO BIG )
